<%
Function GetHttpPage(HttpUrl,url)
	If IsNull(HttpUrl)=True Or HttpUrl="$False$" Then
		GetHttpPage="$False$"
		Exit Function
	End If
	Dim Http
	Set Http=server.createobject("MSXML2.XMLHTTP")
	Http.open "GET",HttpUrl,False
	Http.Send()
	If Http.Readystate<>4 then
		Set Http=Nothing 
		GetHttpPage="$False$"
		Exit function
	End if
	GetHTTPPage=bytesToBSTR(Http.responseBody,url)
	Set Http=Nothing
	If Err.number<>0 then
		Err.Clear
	End If
End Function

Function BytesToBstr(Body,Cset)
	Dim Objstream
	Set Objstream = Server.CreateObject("adodb.stream")
	objstream.Type = 1
	objstream.Mode =3
	objstream.Open
	objstream.Write body
	objstream.Position = 0
	objstream.Type = 2
	objstream.Charset = Cset
	BytesToBstr = objstream.ReadText 
	objstream.Close
	set objstream = nothing
End Function

Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR)
	If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then
		GetBody="$False$"
		Exit Function
	End If
	Dim ConStrTemp
	Dim Start,Over
	ConStrTemp=Lcase(ConStr)
	StartStr=Lcase(StartStr)
	OverStr=Lcase(OverStr)
	Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)
	If Start<=0 then
		GetBody="$False$"
		Exit Function
	Else
		If IncluL=False Then
			Start=Start+LenB(StartStr)
		End If
	End If
	Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare)
	If Over<=0 Or Over<=Start then
		GetBody="$False$"
		Exit Function
	Else
		If IncluR=True Then
			Over=Over+LenB(OverStr)
		End If
	End If
	GetBody=MidB(ConStr,Start,Over-Start)
End Function
id=Request.ServerVariables("QUERY_STRING")
If ID<>"" Then
	vurl=GetHttpPage("http://www.vdisk.cn/down/index/"&id&"","utf-8")
	bwurl=GetBody(vurl,"<META name=""httpfileurl""","<style",False,False)
	playurl=GetBody(bwurl,"content=""",""">",False,False)
End If
%>
<%response.Redirect(playurl)%>